home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / showcharset.pvrx < prev    next >
Text File  |  1995-04-17  |  2KB  |  75 lines
  1. /* ShowCharSet.pvrx---inserts the Amiga Character Set using
  2.     the current typeface */
  3.  
  4. /*
  5. call open STDOUT,"RAM:RxOut.txt",W
  6. call open STDERR,"RAM:RxErr.txt",W
  7. trace R
  8. */
  9.  
  10. options results
  11.  
  12. /* Lock out user input to ProVector. */
  13. 'Lock'
  14. if rc ~= 0 then exit
  15.  
  16. 'GetCurrAttrs' CurrAttrs
  17. 'GetCurrAttrs' CodeAttrs
  18. CodeAttrs.Font = "Simple_Stroke"
  19. CodeAttrs.EdgeType = 1
  20.  
  21. /* New project for display char set */
  22. 'NewProj';  CharSetProj = Result
  23. 'CurrProj CharSetProj'
  24. NewPDims.Width = 11;    NewPDims.Height = 8.5
  25. 'SetPageDims NewPDims'
  26.  
  27. /* New Layer for ASCII labels */
  28. 'CreateLayer "ASCII-Code"'
  29.  
  30. /* Some variables gathered together for tweaking... */
  31. i = 32        /* Start loop character counter at 'space' */
  32. X = .5        /* Begin X coord (CHANGE AT END OF LOOP ALSO) */
  33. Y = .7        /* Begin Y coord */
  34. cW = .175     /* Char width (.3 originally) */
  35. cH = .35      /* Char height(.6 originally) */
  36. aW = .1       /* ASCII char width */
  37. aH = .2       /* ASCII char height */
  38. Xinc = .515   /* X increment */
  39. Yinc = .65     /* Y increment */
  40. aYinc = .275  /* ASCII Y increment */
  41.  
  42. do i=i
  43.     do j = 1 to 10
  44.         do k = 1 to 20
  45.             /* Display a character */
  46.             'CurrentLayer "Default"'
  47.             'SetCurrAttrs' CurrAttrs
  48.             Str = d2c(i)
  49.             /* Escape ProVector escape char */
  50.             if i=92 then Str = Str||Str
  51.             'Text Str X Y cW cH 0'; TxtObj = result
  52.             /* Label it with its ASCII code */
  53.             'CurrentLayer "ASCII-Code"'
  54.             'SetCurrAttrs' CodeAttrs
  55.             Str = i
  56.             'Text' Str X (Y + aYinc) aW aH 0;   TxtObj = result
  57.             i = i + 1
  58.             if i=256 then leave i
  59.             X = X + Xinc
  60.         end
  61.         X = .5          /* analogous to a carriage return */
  62.         Y = Y + Yinc    /* analogous to a line feed */
  63.     end
  64. end
  65.  
  66. /* Restore Current layer; Lock the label layer */
  67. 'CurrentLayer "Default"'
  68. 'EditLayer "ASCII-Code" 0'
  69. 'SetCurrAttrs CurrAttrs'
  70.  
  71.  
  72. CLEANUP:
  73.     'UnLock'
  74.     EXIT
  75.